home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / packet / aprs75c / garmn45.txt < prev    next >
Internet Message Format  |  1995-07-07  |  2KB
  1. From: Ronald Kramer <rkramer@vaxxine.com>
  2. To: aprssig@tapr.org
  3. Subject: [APRSSIG:2089] Re: (U)GASRMIN 45
  4.  
  5. Here is a file to make a history file from the Garman 45 plot output
  6. I forget how I got the file out but beleive it was with the
  7. program   GARMAN and GARMANA will check next week when I return home
  8. this is a basic program that I adapted to work...
  9. I call it GAR45HST.BAS
  10. hope it helps you.
  11.  
  12. REM by Ron Kramer VE3MX July 6 1995 for Garman 45 GPS
  13. PRINT "This program takes a DATA download file from GARMAN6 decoder"
  14. PRINT "in ascii format and formats it to look like an APRS HST file"
  15. PRINT
  16. INPUT "Enter file name and path of raw GPS data"; FI$
  17. PRINT
  18. INPUT "Enter file name and path of raw GPS data"; FI$
  19. INPUT "Enter path and name of OUTPUT .HST file for APRS include .HST"; FO$
  20. INPUT "Enter Callsign to use in output with proper ssid"; b$
  21. CALL$ = MID$(b$, 1, 10)
  22. REM CALL$ = "VE3MX-15  "
  23. Sym$ = ">"
  24. OPEN FI$ FOR INPUT AS #1
  25. OPEN FO$ FOR OUTPUT AS #2
  26. DO WHILE NOT EOF(1)
  27. FOR X = 1 TO 2
  28. LINE INPUT #1, a$
  29.    lat1$ = MID$(a$, 2, 2)
  30.    lat2$ = MID$(a$, 5, 5)
  31.    lon1$ = MID$(a$, 14, 3)
  32.    lon2$ = MID$(a$, 18, 5)
  33.    dat1$ = MID$(a$, 33, 2)
  34.    tim1$ = MID$(a$, 36, 2)
  35.    tim2$ = MID$(a$, 39, 2)
  36. NEXT X
  37. PRINT #2, CALL$; TAB(11); dat1$ + tim1$ + tim2$ + " @" + dat1$; 
  38. print #2, tim1$ + tim2$ + "z" + lat1$ + lat2$ + "N/" + lon1$ + lon2$ + "W" + "v"
  39. LOOP
  40. CLOSE
  41. END
  42.  
  43.  
  44. Regards, Ron ...                          73 de Ron
  45.          Internet: rkramer@vaxxine.com (Ron Kramer)
  46.          Packet:   ve3mx@ve3snp#niag.on.can (Sysop of VE3SNP/VE3RNP - BBS/NODE)
  47.